' S o f t w a r e   f o r   c o n t r o l l i n g   F u n c t i o n   G e n e r a t o r   J u n t e k   P S G 9 0 8 0 
 
 ' U N I L A B S   E X P E R I M E N T S   2 0 2 2 
 
 ' V e r s i o n   1 . 7 
 
 ' 0 5 / 0 7 / 2 0 2 2 
 
 ' S e t   S p e e d   t o   7   o r   h i g h e r 
 
 
 
 W i n d o w   M i n S i z e 
 
 C o n t r o l s   C l e a r T e x t B o x 
 
 
 
 B u t t o n   1   T e x t   P S G 9 0 8 0 
 
 B u t t o n   P S G 9 0 8 0   T e x t   " I n i t   C O M   P o r t " 
 
 B u t t o n   P S G 9 0 8 0   C o l o r   F l a s h i n g   G o l d   L i g h t G o l d e n r o d Y e l l o w 
 
 B u t t o n   1 7   T e x t   P S G 9 0 8 0 _ 2 
 
 B u t t o n   P S G 9 0 8 0 _ 2   T e x t   " J u n t e k   P S G 9 0 8 0 " 
 
 
 
 B u t t o n   2   T e x t   s t a r t 1 
 
 B u t t o n   s t a r t 1   T e x t   " S t a r t   C h 1 " 
 
 B u t t o n   s t a r t 1   C o l o r   T o m a t o 
 
 B u t t o n   1 8   T e x t   s t a r t 2 
 
 B u t t o n   s t a r t 2   T e x t   " S t a r t   C h 2 " 
 
 B u t t o n   s t a r t 2   C o l o r   T o m a t o 
 
 
 
 B u t t o n   3   T e x t   w a v e f o r m 1 
 
 B u t t o n   w a v e f o r m 1   T e x t   " W a v e f o r m 1 " 
 
 B u t t o n   w a v e f o r m 1   C o l o r   P l u m 
 
 B u t t o n   1 9   T e x t   w a v e f o r m 2 
 
 B u t t o n   w a v e f o r m 2   T e x t   " W a v e f o r m 2 " 
 
 B u t t o n   w a v e f o r m 2   C o l o r   P l u m 
 
 
 
 B u t t o n   4   T e x t   F r e q 1 
 
 B u t t o n   F r e q 1   T e x t   " F r e q u e n c y 1 " 
 
 B u t t o n   F r e q 1   C o l o r   G o l d 
 
 B u t t o n   2 0   T e x t   F r e q 2 
 
 B u t t o n   F r e q 2   T e x t   " F r e q u e n c y 2 " 
 
 B u t t o n   F r e q 2   C o l o r   G o l d 
 
 
 
 B u t t o n   5   T e x t   A m p l i t u d e 1 
 
 B u t t o n   A m p l i t u d e 1   T e x t   " V   A m p l i t u d e 1 " 
 
 B u t t o n   A m p l i t u d e 1   C o l o r   Y e l l o w 
 
 B u t t o n   2 1   T e x t   A m p l i t u d e 2 
 
 B u t t o n   A m p l i t u d e 2   T e x t   " V   A m p l i t u d e 2 " 
 
 B u t t o n   A m p l i t u d e 2   C o l o r   Y e l l o w 
 
 
 
 B u t t o n   6   T e x t   O f f s e t 1 
 
 B u t t o n   O f f s e t 1   T e x t   " O f f s e t 1 " 
 
 B u t t o n   O f f s e t 1   C o l o r   Y e l l o w 5 
 
 B u t t o n   2 2   T e x t   O f f s e t 2 
 
 B u t t o n   O f f s e t 2   T e x t   " O f f s e t 2 " 
 
 B u t t o n   O f f s e t 2   C o l o r   Y e l l o w 5 
 
 
 
 B u t t o n   7   T e x t   D u t y 1 
 
 B u t t o n   D u t y 1   T e x t   " D u t y   C y c l e 1 " 
 
 B u t t o n   D u t y 1   C o l o r   B u r l y W o o d 
 
 B u t t o n   2 3   T e x t   D u t y 2 
 
 B u t t o n   D u t y 2   T e x t   " D u t y   C y c l e 2 " 
 
 B u t t o n   D u t y 2   C o l o r   B u r l y W o o d 
 
 
 
 B u t t o n   8   T e x t   P h a s e 1 
 
 B u t t o n   P h a s e 1   T e x t   " P h a s e    "  C h 1 " 
 
 B u t t o n   P h a s e 1   C o l o r   D a r k G o l d e n r o d 
 
 B u t t o n   2 4   T e x t   P h a s e 2 
 
 B u t t o n   P h a s e 2   T e x t   " P h a s e    "  C h 2 " 
 
 B u t t o n   P h a s e 2   C o l o r   D a r k G o l d e n r o d 
 
 
 
 B u t t o n   9   T e x t   T r i g g e r 1 
 
 B u t t o n   T r i g g e r 1   T e x t   " T r i g g e r   1 " 
 
 B u t t o n   T r i g g e r 1   C o l o r   R e d 1 
 
 B u t t o n   2 5   T e x t   T r i g g e r 2 
 
 B u t t o n   T r i g g e r 2   T e x t   " T r i g g e r   2 " 
 
 B u t t o n   T r i g g e r 2   C o l o r   R e d 1 
 
 
 
 B u t t o n   1 0   T e x t   P W M _ s e t 1 
 
 B u t t o n   P W M _ s e t 1   T e x t   " P W M   s e t 1 " 
 
 B u t t o n   P W M _ s e t 1   C o l o r   L i g h t S t e e l B l u e 
 
 B u t t o n   2 6   T e x t   P W M _ s e t 2 
 
 B u t t o n   P W M _ s e t 2   T e x t   " P W M   s e t 2 " 
 
 B u t t o n   P W M _ s e t 2   C o l o r   L i g h t S t e e l B l u e 
 
 
 
 B u t t o n   3 4   T e x t   M o d u l a t i o n _ S e l e c t 
 
 B u t t o n   M o d u l a t i o n _ S e l e c t   T e x t   " M o d u l a t i o n   T y p e " 
 
 B u t t o n   M o d u l a t i o n _ S e l e c t   C o l o r   L i g h t S t e e l B l u e 
 
 
 
 B u t t o n   3 5   T e x t   P W M _ I n v e r s i o n 
 
 B u t t o n   P W M _ I n v e r s i o n   T e x t   " P W M   I n v e r s i o n " 
 
 B u t t o n   P W M _ I n v e r s i o n   C o l o r   L i g h t S t e e l B l u e 
 
 
 
 B u t t o n   3 6   T e x t   B u r s t _ i d l e 
 
 B u t t o n   B u r s t _ i d l e   T e x t   " B u r s t   i d l e " 
 
 B u t t o n   B u r s t _ i d l e   C o l o r   G r e e n 
 
 
 
 B u t t o n   3 7   T e x t   P o l a r i t y 
 
 B u t t o n   P o l a r i t y   T e x t   " P o l a r i t y " 
 
 B u t t o n   P o l a r i t y   C o l o r   G r e e n 
 
 
 
 B u t t o n   3 8   T e x t   B u r s t _ n u m b e r 
 
 B u t t o n   B u r s t _ n u m b e r   T e x t   " B u r s t   P u l s e   n u m b e r " 
 
 B u t t o n   B u r s t _ n u m b e r   C o l o r   G r e e n 
 
 
 
 B u t t o n   3 3   T e x t   B r i g h t n e s s 
 
 B u t t o n   B r i g h t n e s s   T e x t   " S e t   B r i g h t n e s s " 
 
 B u t t o n   B r i g h t n e s s   C o l o r   L a v e n d e r 
 
 
 
 B u t t o n   4 9   T e x t   S w e e p _ s e t 
 
 B u t t o n   S w e e p _ s e t   T e x t   " S w e e p _ s e t " 
 
 B u t t o n   S w e e p _ s e t   C o l o r   I n d i g o 
 
 B u t t o n   5 0   T e x t   S w e e p _ V C o n t r o l 
 
 B u t t o n   S w e e p _ V C o n t r o l   T e x t   " S w e e p   V   C o n t r o l " 
 
 B u t t o n   S w e e p _ V C o n t r o l   C o l o r   I n d i g o 
 
 B u t t o n   5 1   T e x t   S w e e p _ f r e q 
 
 B u t t o n   S w e e p _ f r e q   T e x t   " S w e e p   f r e q u e n c y   s e t " 
 
 B u t t o n   S w e e p _ f r e q   C o l o r   D a r k V i o l e t 
 
 
 
 B u t t o n   5 2   T e x t   S w e e p _ V p p 
 
 B u t t o n   S w e e p _ V p p   T e x t   " S w e e p   V p p   s e t " 
 
 B u t t o n   S w e e p _ V p p   C o l o r   D a r k V i o l e t 
 
 B u t t o n   5 3   T e x t   S w e e p _ D u t y 
 
 B u t t o n   S w e e p _ D u t y   T e x t   " S w e e p   D u t y   s e t " 
 
 B u t t o n   S w e e p _ D u t y   C o l o r   D a r k O r c h i d 
 
 
 
 B u t t o n   5 4   T e x t   S e t _ S w e e p _ I n t e r f a c e 
 
 B u t t o n   S e t _ S w e e p _ I n t e r f a c e   T e x t   " S e t   S w e e p "   +   C R   +   " I n t e r f a c e " 
 
 B u t t o n   S e t _ S w e e p _ I n t e r f a c e   C o l o r   C r i m s o n 
 
 B u t t o n   5 5   T e x t   S e t _ M o d u l a t i o n _ i n t e r f a c e 
 
 B u t t o n   S e t _ M o d u l a t i o n _ i n t e r f a c e   T e x t   " S e t   M o d u l a t i o n "   +   C R   +   " I n t e r f a c e " 
 
 B u t t o n   S e t _ M o d u l a t i o n _ i n t e r f a c e   C o l o r   C r i m s o n 
 
 B u t t o n   5 6   T e x t   S e t _ W a v e f o r m _ I n t e r f a c e 
 
 B u t t o n   S e t _ W a v e f o r m _ I n t e r f a c e   T e x t   " S e t   W a v e f o r m "   +   C R   +   " I n t e r f a c e " 
 
 B u t t o n   S e t _ W a v e f o r m _ I n t e r f a c e   C o l o r   C r i m s o n 
 
 B u t t o n   5 7   T e x t   S e t _ V C O _ I n t e r f a c e 
 
 B u t t o n   S e t _ V C O _ I n t e r f a c e   T e x t   " S e t   V C O "   +   C R   +   " I n t e r f a c e " 
 
 B u t t o n   S e t _ V C O _ I n t e r f a c e   C o l o r   C r i m s o n 
 
 B u t t o n   5 8   T e x t   S e t _ M e a s u r e m e n t _ I n t e r f a c e 
 
 B u t t o n   S e t _ M e a s u r e m e n t _ I n t e r f a c e   T e x t   " S e t   M e a s u r e m e n t "   +   C R   +   " I n t e r f a c e " 
 
 B u t t o n   S e t _ M e a s u r e m e n t _ I n t e r f a c e   C o l o r   C r i m s o n 
 
 
 
 B u t t o n   6 5   T e x t   L o a d _ m e m 
 
 B u t t o n   L o a d _ m e m   T e x t   " L o a d "   +   C R   +   " f r o m   M e m o r y " 
 
 B u t t o n   L o a d _ m e m   C o l o r   D e e p S k y B l u e 
 
 B u t t o n   6 6   T e x t   S a v e _ m e m 
 
 B u t t o n   S a v e _ m e m   T e x t   " S a v e "   +   C R   +   " T o   M e m o r y " 
 
 B u t t o n   S a v e _ m e m   C o l o r   D e e p S k y B l u e 
 
 B u t t o n   6 7   T e x t   C l e a r _ m e m 
 
 B u t t o n   C l e a r _ m e m   T e x t   " C l e a r "   +   C R   +   " M e m o r y " 
 
 B u t t o n   C l e a r _ m e m   C o l o r   D e e p S k y B l u e 
 
 
 
 B u t t o n   3 9   T e x t   R e a d _ A W G 
 
 B u t t o n   R e a d _ A W G   T e x t   " R e a d   A r b i t r a r y "   +   C R   +   " W a v e f o r m " 
 
 B u t t o n   R e a d _ A W G   C o l o r   L e m o n C h i f f o n 
 
 
 
 B u t t o n   4 0   T e x t   W r i t e _ A W G 
 
 B u t t o n   W r i t e _ A W G   T e x t   " W r i t e   A r b i t r a r y "   +   C R   +   " W a v e f o r m " 
 
 B u t t o n   W r i t e _ A W G   C o l o r   L e m o n C h i f f o n 
 
 
 
 B u t t o n   4 1   T e x t   C r e a t e _ E x a m p l e _ A W 
 
 B u t t o n   C r e a t e _ E x a m p l e _ A W   T e x t   " C r e a t e "   +   C R   +   " E x a m p l e   A W " 
 
 B u t t o n   C r e a t e _ E x a m p l e _ A W   C o l o r   L e m o n C h i f f o n 
 
 
 
 ' V a r i a b l e s 
 
 V a r i a b l e   N u m e r i c   s e r i a l _ p o r t _ n u m b e r 
 
 V a r i a b l e   N u m e r i c   p o r t _ w a i t i n g _ t i m e   '   i n   s e c o n d s 
 
 V a r i a b l e   N u m e r i c   s t a r t 1 _ f l a g 
 
 V a r i a b l e   N u m e r i c   s t a r t 2 _ f l a g 
 
 V a r i a b l e   N u m e r i c   s w e e p _ f r e q _ o n 
 
 V a r i a b l e   N u m e r i c   P S G 9 0 8 0 _ d e t e c t e d 
 
 
 
 ' V a r i a b l e s   i n i t 
 
 s e r i a l _ p o r t _ n u m b e r   =   - 1 
 
 p o r t _ w a i t i n g _ t i m e   =   0 . 1   '   s e c o n d s 
 
 s t a r t 1 _ f l a g   =   0 
 
 s t a r t 2 _ f l a g   =   0 
 
 s w e e p _ f r e q _ o n   =   0 
 
 P S G 9 0 8 0 _ d e t e c t e d   =   0 
 
 
 
 ' F i r s t   t i m e   i n i t   b u t t o n s 
 
 F o r   v 1   =   2   T o   1 6 
 
 	 B u t t o n   v 1   D i s a b l e d 
 
 N e x t 
 
 F o r   v 1   =   1 8   T o   6 7 
 
 	 B u t t o n   v 1   D i s a b l e d 
 
 N e x t 
 
 
 
 
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 ' M A I N   C Y C L E 
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 F o r   v 2   =   0   T o   I n f i n i t y 
 
 	 I f   P S G 9 0 8 0 _ d e t e c t e d   =   1 
 
 	 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 	 
 
 	 ' R e a d   C h a n n e l s   O N   s t a t u s 
 
 	 	 C O M   W r i t e L i n e   " : r 1 0 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 4 ) , 1 ) 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 2 ) , 1 ) 
 
 	 	 I f   v 3   =   1 
 
 	 	 	 B u t t o n   s t a r t 1   T e x t   " C h 1   O N " 
 
 	 	 	 B u t t o n   s t a r t 1   C o l o r   G r e e n Y e l l o w 
 
 	 	 E l s e 
 
 	 	 	 B u t t o n   s t a r t 1   T e x t   " C h 1   O F F " 
 
 	 	 	 B u t t o n   s t a r t 1   C o l o r   T o m a t o 
 
 	 	 E n d I f 
 
 	 	 I f   v 4   =   1 
 
 	 	 	 B u t t o n   s t a r t 2   T e x t   " C h 2   O N " 
 
 	 	 	 B u t t o n   s t a r t 2   C o l o r   G r e e n Y e l l o w 
 
 	 	 E l s e 
 
 	 	 	 B u t t o n   s t a r t 2   T e x t   " C h 2   O F F " 
 
 	 	 	 B u t t o n   s t a r t 2   C o l o r   T o m a t o 
 
 	 	 E n d I f 
 
 	 	 
 
 	 ' R e a d   w a v e f o r m s 
 
 	 	 C O M   W r i t e L i n e   " : r 1 1 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 4 ) , 3 ) 
 
 	 	 B u t t o n   w a v e f o r m 1   T e x t   " W a v e f o r m :   "   +   v 3 
 
 	 	 C O M   W r i t e L i n e   " : r 1 2 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 4 ) , 3 ) 
 
 	 	 B u t t o n   w a v e f o r m 2   T e x t   " W a v e f o r m :   "   +   v 3 
 
 	 	 
 
 	 ' R e a d   s e t   F r e q u e n c i e s 
 
 	 	 C O M   W r i t e L i n e   " : r 1 3 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 1 4 ) , 1 1 ) 
 
 	 	 s 4   =   " F r e q u e n c y : "   +   C R 
 
 	 	 s 4   =   s 4   +   v 3 / 1 0 0 0   +   " H z " 
 
 	 	 B u t t o n   F r e q 1   T e x t   s 4 
 
 	 	 C O M   W r i t e L i n e   " : r 1 4 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 1 4 ) , 1 1 ) 
 
 	 	 s 4   =   " F r e q u e n c y : "   +   C R 
 
 	 	 s 4   =   s 4   +   v 3 / 1 0 0 0   +   " H z " 
 
 	 	 B u t t o n   F r e q 2   T e x t   s 4 
 
 	 	 
 
 	 ' R e a d   V   A m p l i t u d e 
 
 	 	 C O M   W r i t e L i n e   " : r 1 5 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 6 ) , 5 ) 
 
 	 	 B u t t o n   A m p l i t u d e 1   T e x t   " V p p :   "   +   v 3 / 1 0 0 0   +   " V " 
 
 	 	 C O M   W r i t e L i n e   " : r 1 6 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 6 ) , 5 ) 
 
 	 	 B u t t o n   A m p l i t u d e 2   T e x t   " V p p :   "   +   v 3 / 1 0 0 0   +   " V " 
 
 	 	 
 
 	 ' R e a d   V   O f f s e t 
 
 	 	 C O M   W r i t e L i n e   " : r 1 7 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 5 ) , 4 ) 
 
 	 	 B u t t o n   O f f s e t 1   T e x t   " O f f s e t :   "   +   ( v 3 - 1 0 0 0 ) / 1 0 0   +   " V " 
 
 	 	 C O M   W r i t e L i n e   " : r 1 8 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 5 ) , 4 ) 
 
 	 	 B u t t o n   O f f s e t 2   T e x t   " O f f s e t :   "   +   ( v 3 - 1 0 0 0 ) / 1 0 0   +   " V " 
 
 	 	 
 
 	 ' R e a d   D u t y   C y c l e 
 
 	 	 C O M   W r i t e L i n e   " : r 1 9 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 5 ) , 4 ) 
 
 	 	 B u t t o n   D u t y 1   T e x t   " D u t y :   "   +   ( v 3 / 1 0 0 )   +   " % " 
 
 	 	 C O M   W r i t e L i n e   " : r 2 0 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 5 ) , 4 ) 
 
 	 	 B u t t o n   D u t y 2   T e x t   " D u t y :   "   +   ( v 3 / 1 0 0 )   +   " % " 
 
 	 	 
 
 	 ' R e a d   P h a s e 
 
 	 	 C O M   W r i t e L i n e   " : r 2 1 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 6 ) , 5 ) 
 
 	 	 B u t t o n   P h a s e 1   T e x t   " P h a s e    ":   "   +   ( v 3 / 1 0 0 )   +   "  " 
 
 	 	 C O M   W r i t e L i n e   " : r 2 2 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 6 ) , 5 ) 
 
 	 	 B u t t o n   P h a s e 2   T e x t   " P h a s e    ":   "   +   ( v 3 / 1 0 0 )   +   "  " 
 
 	 	 
 
 	 ' R e a d   B r i g h t n e s s 
 
 	 	 C O M   W r i t e L i n e   " : r 2 8 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 4 ) , 3 ) 
 
 	 	 B u t t o n   B r i g h t n e s s   T e x t   " B r i g h t :   "   +   v 3   +   " % " 
 
 	 	 
 
 	 ' R e a d   M o d u l a t i o n   s t a t u s 
 
 	 	 C O M   W r i t e L i n e   " : r 4 0 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 4 ) , 1 ) 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 2 ) , 1 ) 
 
 	 	 s 4   =   " M o d u l a t i o n 1 :   "   +   v 3   +   C R 
 
 	 	 s 4   =   s 4   +   " M o d u l a t i o n 2 :   "   +   v 4   +   C R 
 
 	 	 B u t t o n   M o d u l a t i o n _ S e l e c t   T e x t   s 4 
 
 	 	 
 
 	 ' R e a d   P W M   s e t t i n g s 
 
 	 	 C O M   W r i t e L i n e   " : r 5 3 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 1 1 ) , 1 0 ) 
 
 	 	 C O M   W r i t e L i n e   " : r 5 5 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 1 1 ) , 1 0 ) 
 
 	 	 s 4   =   " P W M   w i d t h :   "   +   ( v 3 / 1 0 0 0 )   +   "  s "   +   C R 
 
 	 	 s 4   =   s 4   +   " P W M   p e r i o d :   "   +   ( v 4 / 1 0 0 )   +   "  s " 
 
 	 	 B u t t o n   P W M _ s e t 1   T e x t   s 4 
 
 	 	 C O M   W r i t e L i n e   " : r 5 4 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 1 1 ) , 1 0 ) 
 
 	 	 C O M   W r i t e L i n e   " : r 5 6 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 1 1 ) , 1 0 ) 
 
 	 	 s 4   =   " P W M   w i d t h :   "   +   ( v 3 / 1 0 0 0 )   +   "  s "   +   C R 
 
 	 	 s 4   =   s 4   +   " P W M   p e r i o d :   "   +   ( v 4 / 1 0 0 )   +   "  s " 
 
 	 	 B u t t o n   P W M _ s e t 2   T e x t   s 4 
 
 	 	 
 
 	 ' R e a d   P W M   I n v e r s i o n 
 
 	 	 C O M   W r i t e L i n e   " : r 5 7 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 4 ) , 1 ) 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 2 ) , 1 ) 
 
 	 	 s 4   =   " C h 1   P W M   P o l :   "   +   v 3   +   C R 
 
 	 	 s 4   =   s 4   +   " C h 2   P W M   P o l :   "   +   v 4 
 
 	 	 B u t t o n   P W M _ I n v e r s i o n   T e x t   s 4 
 
 	 	 
 
 	 ' R e a d   B u r s t   i d l e   m o d e 
 
 	 	 C O M   W r i t e L i n e   " : r 5 8 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 4 ) , 1 ) 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 2 ) , 1 ) 
 
 	 	 s 4   =   " C h 1   B u r s t   i d l e :   "   +   v 3   +   C R 
 
 	 	 s 4   =   s 4   +   " C h 2   B u r s t   i d l e :   "   +   v 4   +   C R 
 
 	 	 B u t t o n   B u r s t _ i d l e   T e x t   s 4 
 
 	 	 
 
 	 ' R e a d   P o l a r i t y 
 
 	 	 C O M   W r i t e L i n e   " : r 5 9 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 4 ) , 1 ) 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 2 ) , 1 ) 
 
 	 	 s 4   =   " C h 1   P o l a r i t y :   "   +   v 3   +   C R 
 
 	 	 s 4   =   s 4   +   " C h 2   P o l a r i t y :   "   +   v 4 
 
 	 	 B u t t o n   P o l a r i t y   T e x t   s 4 
 
 	 	 
 
 	 ' R e a d   B u r s t   P u l s e   N u m b e r 
 
 	 	 C O M   W r i t e L i n e   " : r 6 1 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 2 2 ) , 1 0 ) 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 1 1 ) , 1 0 ) 
 
 	 	 s 4   =   " C h 1   B u r s t   n u m b e r :   "   +   v 3   +   C R 
 
 	 	 s 4   =   s 4   +   " C h 2   B u r s t   N u m b e r :   "   +   v 4 
 
 	 	 B u t t o n   B u r s t _ n u m b e r   T e x t   s 4 
 
 	 	 
 
 	 ' R e a d   S w e e p   s e t t t i n g s 
 
 	 	 C O M   W r i t e L i n e   " : r 6 4 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 1 2 ) , 1 ) 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 1 0 ) , 5 ) 
 
 	 	 v 6   =   L e f t ( R i g h t ( s 3 , 4 ) , 1 ) 
 
 	 	 v 7   =   L e f t ( R i g h t ( s 3 , 2 ) , 1 ) 
 
 	 	 I f   v 3   =   0 
 
 	 	 	 s 4   =   " C h 1   S w e e p "   +   C R 
 
 	 	 E l s e 
 
 	 	 	 s 4   =   " C h 2   S w e e p "   +   C R 
 
 	 	 E n d I f 
 
 	 	 s 4   =   s 4   +   " T i m e   r a n g e :   "   +   ( v 4 / 1 0 0 )   +   " s "   +   C R 
 
 	 	 S e l e c t   v 6 
 
 	 	 	 C a s e   0 
 
 	 	 	 	 s 5   =   " !" 
 
 	 	 	 C a s e   1 
 
 	 	 	 	 s 5   =   " !" 
 
 	 	 	 C a s e   2 
 
 	 	 	 	 s 5   =   " !!" 
 
 	 	 E n d S e l e c t 
 
 	 	 s 4   =   s 4   +   " D i r e c t i o n :   "   +   s 5   +   C R 
 
 	 	 I f   v 7   =   0 
 
 	 	 	 s 5   =   " L i n e a r " 
 
 	 	 E l s e 
 
 	 	 	 s 5   =   " L o g a r i t h m i c " 
 
 	 	 E n d I f 
 
 	 	 s 4   =   s 4   +   s 5 
 
 	 	 B u t t o n   S w e e p _ s e t   T e x t   s 4 
 
 	 	 I f   s w e e p _ f r e q _ o n   =   0 
 
 	 	 	 B u t t o n   S w e e p _ s e t   C o l o r   I n d i g o 
 
 	 	 E n d I f 
 
 	 	 
 
 	 ' R e a d   S w e e p   f r e q u e n c y   s t a t u s 
 
 	 	 C O M   W r i t e L i n e   " : r 6 5 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 4 ) , 1 ) 
 
 	 	 I f   v 3   =   0 
 
 	 	 	 s w e e p _ f r e q _ o n   =   0 
 
 	 	 	 B u t t o n   S w e e p _ V C o n t r o l   C o l o r   I n d i g o 
 
 	 	 	 B u t t o n   S w e e p _ V C o n t r o l   T e x t   " S w e e p   O F F " 
 
 	 	 E l s e 
 
 	 	 	 s w e e p _ f r e q _ o n   =   1 
 
 	 	 	 B u t t o n   S w e e p _ V C o n t r o l   C o l o r   G r e e n Y e l l o w 
 
 	 	 	 B u t t o n   S w e e p _ V C o n t r o l   T e x t   " S w e e p   O N " 
 
 	 	 E n d I f 
 
 	 	 
 
 	 ' R e a d   s t a r t   a n d   e n d   s w e e p   f r e q u e n c i e s 
 
 	 	 C O M   W r i t e L i n e   " : r 6 6 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 1 1 ) , 1 0 ) 
 
 	 	 C O M   W r i t e L i n e   " : r 6 7 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 1 1 ) , 1 0 ) 
 
 	 	 s 4   =   " S t a r t   :   "   +   ( v 3 / 1 0 )   +   " H z "   +   C R 
 
 	 	 s 4   =   s 4   +   " E n d   :   "   +   ( v 4 / 1 0 )   +   " H z "   +   C R 
 
 	 	 B u t t o n   S w e e p _ f r e q   T e x t   s 4 
 
 	 	 
 
 	 ' R e a d   s t a r t   a n d   e n d   s w e e p   v o l t a g e s 
 
 	 	 C O M   W r i t e L i n e   " : r 6 8 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 6 ) , 5 ) 
 
 	 	 C O M   W r i t e L i n e   " : r 6 9 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 6 ) , 5 ) 
 
 	 	 s 4   =   " S t a r t   V p p :   "   +   ( v 3 / 1 0 0 0 )   +   " V "   +   C R 
 
 	 	 s 4   =   s 4   +   " E n d   V p p :   "   +   ( v 4 / 1 0 0 0 )   +   " V "   +   C R 
 
 	 	 B u t t o n   S w e e p _ V p p   T e x t   s 4 
 
 	 	 
 
 	 ' R e a d   s t a r t   a n d   e n d   s w e e p   d u t y   c y c l e 
 
 	 	 C O M   W r i t e L i n e   " : r 7 0 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 3   =   L e f t ( R i g h t ( s 3 , 6 ) , 5 ) 
 
 	 	 C O M   W r i t e L i n e   " : r 7 1 = 0 . " 
 
 	 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 	 s 3   =   C O M _ R e c e i v e d 
 
 	 	 v 4   =   L e f t ( R i g h t ( s 3 , 6 ) , 5 ) 
 
 	 	 s 4   =   " S t a r t   D u t y :   "   +   ( v 3 / 1 0 0 )   +   " % "   +   C R 
 
 	 	 s 4   =   s 4   +   " E n d   D u t y :   "   +   ( v 4 / 1 0 0 )   +   " % "   +   C R 
 
 	 	 B u t t o n   S w e e p _ D u t y   T e x t   s 4 
 
 	 	 
 
 	 	 C O M   C l o s e 
 
 	 	 W a i t   S e c o n d s   1 
 
 	 E n d I f 
 
 N e x t 
 
 S t o p 
 
 
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 ' B u t t o n   l a b e l s 
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l   P S G 9 0 8 0 
 
 	 s 5   =   " A v a i l a b l e   C O M   P o r t s : "   +   C R 
 
 	 s 5   =   s 5   +   C O M _ P o r t N a m e s 
 
 	 s e r i a l _ p o r t _ n u m b e r   =   I n p u t   s 5 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : r 1 5 = 0 . " 
 
 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 s 1   =   C O M _ R e c e i v e d 
 
 	 I f   L e f t ( s 1 , 5 )   =   " : r 1 5 = " 
 
 	 	 P r i n t   " D e v i c e   P S G 9 0 8 0   s u c c e s f u l l y   r e c o g n i z e d .   R e a d   t e s t   s t r i n g :   "   +   s 1   +   C R 
 
 	 	 B u t t o n   P S G 9 0 8 0   T e x t   " P S G 9 0 8 0 " 
 
 	 	 B u t t o n   P S G 9 0 8 0   C o l o r   G r e e n Y e l l o w 
 
 	 	 B u t t o n   P S G 9 0 8 0 _ 2   T e x t   " F u n c t i o n "   +   C R   +   " G e n e r a t o r " 
 
 	 	 B u t t o n   P S G 9 0 8 0 _ 2   C o l o r   G r e e n Y e l l o w 
 
 	 	 P S G 9 0 8 0 _ d e t e c t e d   =   1 
 
 	 	 F o r   v 1   =   2   T o   1 6 
 
 	 	 	 B u t t o n   v 1   E n a b l e d 
 
 	 	 N e x t 
 
 	 	 F o r   v 1   =   1 8   T o   6 7 
 
 	 	 	 B u t t o n   v 1   E n a b l e d 
 
 	 	 N e x t 
 
 	 E l s e 
 
 	 	 P r i n t   " P S G 9 0 8 0   N O T   R E C O G N I Z E D "   +   C R 
 
 	 	 B u t t o n   P S G 9 0 8 0   C o l o r   D a r k O r a n g e 
 
 	 	 B u t t o n   P S G 9 0 8 0   T e x t   " N O T "   +   C R   +   " R e c o g n i z e d " 
 
 	 	 W a i t   S e c o n d s   1 
 
 	 	 B u t t o n   P S G 9 0 8 0   T e x t   " I n i t   C O M   P o r t " 
 
 	 	 B u t t o n   P S G 9 0 8 0   C o l o r   F l a s h i n g   D a r k O r a n g e   G o l d 
 
 	 	 B u t t o n   P S G 9 0 8 0 _ 2   T e x t   " P S G 9 0 8 0 " 
 
 	 	 B u t t o n   P S G 9 0 8 0 _ 2   C o l o r   D a r k O r a n g e 
 
 	 	 P S G 9 0 8 0 _ d e t e c t e d   =   0 
 
 	 	 F o r   v 1   =   2   T o   1 6 
 
 	 	 	 B u t t o n   v 1   D i s a b l e d 
 
 	 	 N e x t 
 
 	 	 F o r   v 1   =   1 8   T o   6 7 
 
 	 	 	 B u t t o n   v 1   D i s a b l e d 
 
 	 	 N e x t 
 
 	 E n d I f 
 
 	 ' C O M   C l o s e 
 
 R e t u r n 
 
 
 
 L a b e l   s t a r t 1 
 
 	 I f   s t a r t 1 _ f l a g   =   0 
 
 	 	 s t a r t 1 _ f l a g   =   1 
 
 	 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 	 C O M   W r i t e L i n e   " : w 1 0 = "   +   s t a r t 1 _ f l a g   +   " , "   +   s t a r t 2 _ f l a g   +   " . " 
 
 	 	 ' C O M   C l o s e 
 
 	 	 B u t t o n   s t a r t 1   T e x t   " C h   1   O N " 
 
 	 	 B u t t o n   s t a r t 1   C o l o r   G r e e n Y e l l o w 
 
 	 E l s e 
 
 	 	 s t a r t 1 _ f l a g   =   0 
 
 	 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 	 C O M   W r i t e L i n e   " : w 1 0 = "   +   s t a r t 1 _ f l a g   +   " , "   +   s t a r t 2 _ f l a g   +   " . " 
 
 	 	 ' C O M   C l o s e 
 
 	 	 B u t t o n   s t a r t 1   T e x t   " C h   1   O F F " 
 
 	 	 B u t t o n   s t a r t 1   C o l o r   T o m a t o 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   s t a r t 2 
 
 	 I f   s t a r t 2 _ f l a g   =   0 
 
 	 	 s t a r t 2 _ f l a g   =   1 
 
 	 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 	 C O M   W r i t e L i n e   " : w 1 0 = "   +   s t a r t 1 _ f l a g   +   " , "   +   s t a r t 2 _ f l a g   +   " . " 
 
 	 	 ' C O M   C l o s e 
 
 	 	 B u t t o n   s t a r t 2   T e x t   " C h   2   O N " 
 
 	 	 B u t t o n   s t a r t 2   C o l o r   G r e e n Y e l l o w 
 
 	 E l s e 
 
 	 	 s t a r t 2 _ f l a g   =   0 
 
 	 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 	 C O M   W r i t e L i n e   " : w 1 0 = "   +   s t a r t 1 _ f l a g   +   " , "   +   s t a r t 2 _ f l a g   +   " . " 
 
 	 	 ' C O M   C l o s e 
 
 	 	 B u t t o n   s t a r t 2   T e x t   " C h   2   O F F " 
 
 	 	 B u t t o n   s t a r t 2   C o l o r   T o m a t o 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   w a v e f o r m 1 
 
 	 s 1 1   =   " C h o o s e   t h e   w a v e f o r m   t y p e   c h a n n e l   1 "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   0 :   S i n e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   1 :   S q u a r e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   2 :   P u l s e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   3 :   T r i a n g l e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   4 :   S l o p e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   5 :   C M O S "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   6 :   D C   L e v e l "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   7 :   P a r t i a l   s i n e   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   8 :   H a l f   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   9 :   F u l l   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 0 :   P o s i t i v e   l a d d e r   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 1 :   N e g a t i v e   l a d d e r   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 2 :   P o s i t i v e   t r a p e z o i d a l   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 3 :   N e g a t i v e   t r a p e z o i d a l   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 4 :   N o i s e   W a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 5 :   I n d e x   r i s e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 6 :   I n d e x   f a l l "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 7 :   L o g a r i t h m i c   r i s e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 8 :   L o g a r i t h m i c   f a l l "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 9 :   S i n k e r   P u l s e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 2 0 :   M u l t i - a u d i o "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 2 1 :   L o r e n z "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 0 1   -   1 9 9 :   A W G   n u m b e r " 
 
 	 v 1 1   =   I n p u t   s 1 1 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 1 1 = "   +   v 1 1   +   " . " 
 
 	 P r i n t   " C h 1   W a v e f o r m   s e t   t o :   "   +   v 1 1   +   C R 
 
 	 ' C O M   C l o s e 
 
 R e t u r n 
 
 
 
 L a b e l   w a v e f o r m 2 
 
 	 s 1 1   =   " C h o o s e   t h e   w a v e f o r m   t y p e   c h a n n e l   2 "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   0 :   S i n e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   1 :   S q u a r e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   2 :   P u l s e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   3 :   T r i a n g l e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   4 :   S l o p e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   5 :   C M O S "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   6 :   D C   L e v e l "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   7 :   P a r t i a l   s i n e   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   8 :   H a l f   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   "   9 :   F u l l   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 0 :   P o s i t i v e   l a d d e r   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 1 :   N e g a t i v e   l a d d e r   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 2 :   P o s i t i v e   t r a p e z o i d a l   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 3 :   N e g a t i v e   t r a p e z o i d a l   w a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 4 :   N o i s e   W a v e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 5 :   I n d e x   r i s e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 6 :   I n d e x   f a l l "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 7 :   L o g a r i t h m i c   r i s e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 8 :   L o g a r i t h m i c   f a l l "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 9 :   S i n k e r   P u l s e "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 2 0 :   M u l t i - a u d i o "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 2 1 :   L o r e n z "   +   C R 
 
 	 s 1 1   =   s 1 1   +   " 1 0 1   -   1 9 9 :   A W G   n u m b e r " 
 
 	 v 1 1   =   I n p u t   s 1 1 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 1 2 = "   +   v 1 1   +   " . " 
 
 	 P r i n t   " C h 2   W a v e f o r m   s e t   t o :   "   +   v 1 1   +   C R 
 
 	 ' C O M   C l o s e 
 
 R e t u r n 
 
 
 
 L a b e l   F r e q 1 
 
 	 s 1 3   =   " C h o o s e   F r e q u e n c y   U n i t : "   +   C R 
 
 	 s 1 3   =   s 1 3   +   " 0 :     H z "   +   C R 
 
 	 s 1 3   =   s 1 3   +   " 1 :   K H z "   +   C R 
 
 	 s 1 3   =   s 1 3   +   " 2 :   M H z "   +   C R 
 
 	 s 1 3   =   s 1 3   +   " 3 :   m H z "   +   C R 
 
 	 s 1 3   =   s 1 3   +   " 4 :    H z "   +   C R 
 
 	 v 1 3   =   I n p u t   s 1 3 
 
 	 v 1 4   =   I n p u t   " S e t   F r e q u e n c y   v a l u e   f o r   C h 1 " 
 
 	 S e l e c t   v 1 3 
 
 	 	 C a s e   0 
 
 	 	 	 v 1 2   =   v 1 4   * 1 0 0 0 
 
 	 	 	 s 1 2   =   " H z " 
 
 	 	 C a s e   1 
 
 	 	 	 v 1 2   =   v 1 4   * 1 0 0 0 0 0 0 
 
 	 	 	 s 1 4   =   " K H z " 
 
 	 	 C a s e   2 
 
 	 	 	 v 1 2   =   v 1 4   * 1 0 0 0 0 0 0 0 0 0 
 
 	 	 	 s 1 4   =   " M H z " 
 
 	 	 C a s e   3 
 
 	 	 	 v 1 2   =   v 1 4   * 1 0 0 0 
 
 	 	 	 s 1 4   =   " m H z " 
 
 	 	 C a s e   4 
 
 	 	 	 v 1 2   =   v 1 4   * 1 0 0 0 
 
 	 	 	 s 1 4   =   "  H z " 
 
 	 E n d S e l e c t 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 1 3 = "   +   v 1 2   +   " , "   +   v 1 3   +   " . " 
 
 	 P r i n t   " C h 1   F r e q u e n c y   s e t   t o :   "   +   v 1 4   +   s 1 4   +   C R 
 
 	 ' C O M   C l o s e 
 
 R e t u r n 
 
 
 
 L a b e l   F r e q 2 
 
 	 s 1 3   =   " C h o o s e   F r e q u e n c y   U n i t : "   +   C R 
 
 	 s 1 3   =   s 1 3   +   " 0 :     H z "   +   C R 
 
 	 s 1 3   =   s 1 3   +   " 1 :   K H z "   +   C R 
 
 	 s 1 3   =   s 1 3   +   " 2 :   M H z "   +   C R 
 
 	 s 1 3   =   s 1 3   +   " 3 :   m H z "   +   C R 
 
 	 s 1 3   =   s 1 3   +   " 4 :    H z "   +   C R 
 
 	 v 1 3   =   I n p u t   s 1 3 
 
 	 v 1 4   =   I n p u t   " S e t   F r e q u e n c y   v a l u e   f o r   C h 2 " 
 
 	 S e l e c t   v 1 3 
 
 	 	 C a s e   0 
 
 	 	 	 v 1 2   =   v 1 4   * 1 0 0 0 
 
 	 	 	 s 1 2   =   " H z " 
 
 	 	 C a s e   1 
 
 	 	 	 v 1 2   =   v 1 4   * 1 0 0 0 0 0 0 
 
 	 	 	 s 1 4   =   " K H z " 
 
 	 	 C a s e   2 
 
 	 	 	 v 1 2   =   v 1 4   * 1 0 0 0 0 0 0 0 0 0 
 
 	 	 	 s 1 4   =   " M H z " 
 
 	 	 C a s e   3 
 
 	 	 	 v 1 2   =   v 1 4   * 1 0 0 0 
 
 	 	 	 s 1 4   =   " m H z " 
 
 	 	 C a s e   4 
 
 	 	 	 v 1 2   =   v 1 4   * 1 0 0 0 
 
 	 	 	 s 1 4   =   "  H z " 
 
 	 E n d S e l e c t 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 1 4 = "   +   v 1 2   +   " , "   +   v 1 3   +   " . " 
 
 	 P r i n t   " C h 2   F r e q u e n c y   s e t   t o :   "   +   v 1 4   +   s 1 4   +   C R 
 
 	 ' C O M   C l o s e 
 
 R e t u r n 
 
 
 
 L a b e l   A m p l i t u d e 1 
 
 	 s 1 5   =   " C h o o s e   t h e   w a v e   a m p l i t u d e   i n   V :   "   +   C R 
 
 	 s 1 5   =   s 1 5   +   " ( 0 . 0 0 1   -   2 5 . 0 0 0 V ) " 
 
 	 v 1 5   =   I n p u t   s 1 5 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 1 5 = "   +   v 1 5 * 1 0 0 0   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 1   A m p l i t u d e   s e t   t o :   "   +   v 1 5   +   " V "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   A m p l i t u d e 2 
 
 	 s 1 5   =   " C h o o s e   t h e   w a v e   a m p l i t u d e   i n   V :   "   +   C R 
 
 	 s 1 5   =   s 1 5   +   " ( 0 . 0 0 1   -   2 5 . 0 0 0 V ) " 
 
 	 v 1 5   =   I n p u t   s 1 5 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 1 6 = "   +   v 1 5 * 1 0 0 0   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 2   A m p l i t u d e   s e t   t o :   "   +   v 1 5   +   " V "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   O f f s e t 1 
 
 	 s 1 7   =   " C h o o s e   t h e   o f f s e t   f o r   C h 1   ( V ) : " 
 
 	 v 1 7   =   I n p u t   s 1 7 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 1 7 = "   +   ( v 1 7 * 1 0 0 + 1 0 0 0 )   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 1   O f f s e t   s e t   t o :   "   +   v 1 7   +   " V "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   O f f s e t 2 
 
 	 s 1 7   =   " C h o o s e   t h e   o f f s e t   f o r   C h 2   ( V ) : " 
 
 	 v 1 7   =   I n p u t   s 1 7 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 1 8 = "   +   ( v 1 7 * 1 0 0 + 1 0 0 0 )   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 2   O f f s e t   s e t   t o :   "   +   v 1 7   +   " V "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   D u t y 1 
 
 	 s 1 9   =   " C h o o s e   t h e   d u t y   c y c l e   %   f o r   C h 1 : " 
 
 	 v 1 9   =   I n p u t   s 1 9 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 1 9 = "   +   ( v 1 9 * 1 0 0 )   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 1   D u t y   C y c l e   %   s e t   t o :   "   +   v 1 9   +   " % "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   D u t y 2 
 
 	 s 1 9   =   " C h o o s e   t h e   d u t y   c y c l e   %   f o r   C h 2 : " 
 
 	 v 1 9   =   I n p u t   s 1 9 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 0 = "   +   ( v 1 9 * 1 0 0 )   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 2   D u t y   C y c l e   %   s e t   t o :   "   +   v 1 9   +   " % "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   P h a s e 1 
 
 	 s 2 1   =   " S e t   P h a s e   a n g l e   o f   C h 1   ( 0 - 3 5 9 . 9 9  ) : " 
 
 	 v 2 1   =   I n p u t   s 2 1 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 1 = "   +   ( v 2 1 * 1 0 0 )   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 1   P h a s e   a n g l e   s e t   t o :   "   +   v 2 1   +   "  "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   P h a s e 2 
 
 	 s 2 1   =   " S e t   P h a s e   a n g l e   o f   C h 2   ( 0 - 3 5 9 . 9 9  ) : " 
 
 	 v 2 1   =   I n p u t   s 2 1 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 2 = "   +   ( v 2 1 * 1 0 0 )   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 2   P h a s e   a n g l e   s e t   t o :   "   +   v 2 1   +   "  "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   B r i g h t n e s s 
 
 	 s 2 8   =   " S e t   t h e   b r i g h t n e s s   o f   t h e   d i s p l a y   i n   % : " 
 
 	 v 2 8   =   I n p u t   s 2 8 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 8 = "   +   v 2 8   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " S c r e e n   b r i g h t n e s s   s e t   t o :   "   +   v 2 8   +   " % "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   M o d u l a t i o n _ S e l e c t 
 
 	 s 4 0   =   " C h 1 ,   S e t   t h e   m o d u l a t i o n   t y p e : "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 0 :   A M "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 1 :   F M "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 2 :   P M "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 3 :   A S K "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 4 :   F S K "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 5 :   P S K "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 6 :   P W M "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 7 :   B u r s t "   +   C R 
 
 	 v 4 0   =   I n p u t   s 4 0 
 
 	 s 4 0   =   " C h 2 ,   S e t   t h e   m o d u l a t i o n   t y p e : "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 0 :   A M "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 1 :   F M "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 2 :   P M "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 3 :   A S K "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 4 :   F S K "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 5 :   P S K "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 6 :   P W M "   +   C R 
 
 	 s 4 0   =   s 4 0   +   " 7 :   B u r s t "   +   C R 
 
 	 v 2 8   =   I n p u t   s 4 0 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 4 0 = "   +   v 4 0   +   " , "   +   v 2 8   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " M o d u l a t i o n   t y p e   s e t   t o :   "   +   v 4 0   +   " f o r   C h 1   a n d   "   +   v 2 8   +   "   f o r   C h 2 "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   T r i g g e r 1 
 
 	 B u t t o n   T r i g g e r 1   C o l o r   C h a r t r e u s e 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 7 4 = "   +   1   +   " , "   +   0   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 B u t t o n   T r i g g e r 1   C o l o r   R e d 1 
 
 R e t u r n 
 
 
 
 L a b e l   T r i g g e r 2 
 
 	 B u t t o n   T r i g g e r 2   C o l o r   C h a r t r e u s e 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 7 4 = "   +   0   +   " , "   +   1   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 B u t t o n   T r i g g e r 2   C o l o r   R e d 1 
 
 R e t u r n 
 
 
 
 L a b e l   P W M _ s e t 1 
 
 	 s 5 3   =   " S e t   C h 1   P W M   P u l s e   w i d t h   i n    s "   +   C R 
 
 	 s 5 3   =   s 5 3   +   " ( 0 . 0 0 1  s   -   4 0 0 0   0 0 0  s ) : " 
 
 	 v 5 3   =   I n p u t   s 5 3 
 
 	 s 5 3   =   " S e t   C h 1   P W M   P e r i o d   l e n g h t   i n    s "   +   C R 
 
 	 s 5 3   =   s 5 3   +   " ( 0 . 0 1  s   -   4 0   0 0 0   0 0 0  s ) " 
 
 	 v 5 5   =   I n p u t   s 5 3 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 5 3 = "   +   ( v 5 3 * 1 0 0 0 )   +   " . " 
 
 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 C O M   W r i t e L i n e   " : w 5 5 = "   +   ( v 5 5 * 1 0 0 )   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 1   P W M   p u l s e   w i d t h   s e t   t o :   "   +   v 5 3   +   "  s ,   P W M   w i d t h   s e t   t o :   "   +   v 5 5   +   "  s "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   P W M _ s e t 2 
 
 	 s 5 3   =   " S e t   C h 2   P W M   P u l s e   w i d t h   i n    s "   +   C R 
 
 	 s 5 3   =   s 5 3   +   " ( 0 . 0 0 1  s   -   4 0 0 0   0 0 0  s ) : " 
 
 	 v 5 3   =   I n p u t   s 5 3 
 
 	 s 5 3   =   " S e t   C h 2   P W M   P e r i o d   l e n g h t   i n    s "   +   C R 
 
 	 s 5 3   =   s 5 3   +   " ( 0 . 0 1  s   -   4 0   0 0 0   0 0 0  s ) " 
 
 	 v 5 5   =   I n p u t   s 5 3 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 5 4 = "   +   ( v 5 3 * 1 0 0 0 )   +   " . " 
 
 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 C O M   W r i t e L i n e   " : w 5 6 = "   +   ( v 5 5 * 1 0 0 )   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 2   P W M   p u l s e   w i d t h   s e t   t o :   "   +   v 5 3   +   "  s ,   P W M   w i d t h   s e t   t o :   "   +   v 5 5   +   "  s "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   P W M _ I n v e r s i o n 
 
 	 s 5 7   =   " C h 1   S e t   i f   P W M   s i g n a l   i s   i n v e r t e d "   +   C R 
 
 	 s 5 7   =   s 5 7   +   " 0 :   N o r m a l "   +   C R 
 
 	 s 5 7   =   s 5 7   +   " 1 :   I n v e r t e d "   +   C R 
 
 	 v 5 7   =   I n p u t   s 5 7 
 
 	 s 5 7   =   " C h 2   S e t   i f   P W M   s i g n a l   i s   i n v e r t e d "   +   C R 
 
 	 s 5 7   =   s 5 7   +   " 0 :   N o r m a l "   +   C R 
 
 	 s 5 7   =   s 5 7   +   " 1 :   I n v e r t e d "   +   C R 
 
 	 v 2 8   =   I n p u t   s 5 7 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 5 7 = "   +   v 5 7   +   " , "   +   v 2 8   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " P W M   f o r   C h 1   i n v e r s i o n   s e t   t o   "   +   v 5 7   +   " ,   P W M   f o r   C h 2   s e t   t o   "   +   v 2 8   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   B u r s t _ i d l e 
 
 	 s 5 8   =   " C h 1   S e l e c t   i d l e   s e t t i n g s   f o r   b u r s t : "   +   C R 
 
 	 s 5 8   =   s 5 8   +   " 0 :   z e r o "   +   C R 
 
 	 s 5 8   =   s 5 8   +   " 1 :   p o s i t i v e   m a x i m u m "   +   C R 
 
 	 s 5 8   =   s 5 8   +   " 2 :   n e g a t i v e   m a x i m u m "   +   C R 
 
 	 v 5 8   =   I n p u t   s 5 8 
 
 	 s 5 8   =   " C h 2   S e l e c t   i d l e   s e t t i n g s   f o r   b u r s t : "   +   C R 
 
 	 s 5 8   =   s 5 8   +   " 0 :   z e r o "   +   C R 
 
 	 s 5 8   =   s 5 8   +   " 1 :   p o s i t i v e   m a x i m u m "   +   C R 
 
 	 s 5 8   =   s 5 8   +   " 2 :   n e g a t i v e   m a x i m u m "   +   C R 
 
 	 v 2 8   =   I n p u t   s 5 8 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 5 8 = "   +   v 5 8   +   " , "   +   v 2 8   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 1   B u r s t   i d l e   s t a t u s   s e t   t o   "   +   v 5 8   +   " , C h 2   i d l e   s t a t u s   s e t   t o   "   +   v 2 8   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   P o l a r i t y 
 
 	 s 5 9   =   " C h 1   s e t   p o l a r i t y "   +   C R 
 
 	 s 5 9   =   s 5 9   +   " 0 :   P o s i t i v e "   +   C R 
 
 	 s 5 9   =   s 5 9   +   " 1 :   N e g a t i v e "   +   C R 
 
 	 v 5 9   =   I n p u t   s 5 9 
 
 	 s 5 9   =   " C h 2   s e t   p o l a r i t y "   +   C R 
 
 	 s 5 9   =   s 5 9   +   " 0 :   P o s i t i v e "   +   C R 
 
 	 s 5 9   =   s 5 9   +   " 1 :   N e g a t i v e "   +   C R 
 
 	 v 2 8   =   I n p u t   s 5 9 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 5 9 = "   +   v 5 9   +   " , "   +   v 2 8   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 1   p o l a r i t y   s e t   t o :   "   +   v 5 9   +   " ,   C h 2   p o l a r i t y   s e t   t o :   "   +   v 2 8   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   B u r s t _ n u m b e r 
 
 	 s 6 1   =   " C h 1   B u r s t   p u l s e   n u m b e r :   "   +   C R 
 
 	 s 6 1   =   s 6 1   +   " ( 0   -   1   0 0 0   0 0 0   0 0 0 ) " 
 
 	 v 6 1   =   I n p u t   s 6 1 
 
 	 s 6 1   =   " C h 2   B u r s t   p u l s e   n u m b e r :   "   +   C R 
 
 	 s 6 1   =   s 6 1   +   " ( 0   -   1   0 0 0   0 0 0   0 0 0 ) " 
 
 	 v 2 8   =   I n p u t   s 6 1 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 6 1 = "   +   v 6 1   +   " , "   +   v 2 8   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " C h 1   B u r s t   p u l s e   n u m b e r   s e t   t o   "   +   v 6 1   +   " ,   C h 2   B u r s t   p u l s e   n u m b e r   s e t   t o   "   +   v 2 8   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   S w e e p _ s e t 
 
 	 s 6 4   =   " S e t   S w e e p   C h a n n e l :   "   +   C R 
 
 	 s 6 4   =   s 6 4   +   " 0 :   C h 1 "   +   C R 
 
 	 s 6 4   =   s 6 4   +   " 1 :   C h 2 " 
 
 	 v 6 4   =   I n p u t   s 6 4 
 
 	 s 6 4   =   " S e t   S w e e p   t i m e   i n   s "   +   C R 
 
 	 s 6 4   =   s 6 4   +   " ( 0 . 0 1   -   6 4 0 s ) " 
 
 	 v 1 0   =   I n p u t   s 6 4 
 
 	 s 6 4   =   " S e t   S w e e p   d i r e c t i o n "   +   C R 
 
 	 s 6 4   =   s 6 4   +   " 0 :   I n c r e a s i n g   !"   +   C R 
 
 	 s 6 4   =   s 6 4   +   " 1 :   D e c r e a s i n g   !"   +   C R 
 
 	 s 6 4   =   s 6 4   +   " 2 :   B a c k   a n d   f o r t h   !!"   +   C R 
 
 	 v 1 1   =   I n p u t   s 6 4 
 
 	 s 6 4   =   " S e t   s w e e p   m o d e :   "   +   C R 
 
 	 s 6 4   =   s 6 4   +   " 0 :   L i n e a r "   +   C R 
 
 	 s 6 4   =   s 6 4   +   " 1 :   L o g a r i t h m i c " 
 
 	 v 1 2   =   I n p u t   s 6 4 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 6 4 = "   +   v 6 4   +   " , "   +   ( v 1 0 * 1 0 0 )   +   " , "   +   v 1 1   +   " , "   +   v 1 2   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 s 6 4   =   " S w e e p   s e t   w i t h   f o l l o w i n g   p a r a m e t e r s : "   +   C R 
 
 	 s 6 4   =   s 6 4   +   " C h a n n e l   "     +   ( v 6 4 + 1 )   +   C R 
 
 	 s 6 4   =   s 6 4   +   " S w e e p   t i m e :   "   +   v 1 0   +   " s "   +   C R 
 
 	 s 6 4   =   s 6 4   +   " S w e e p   d i r e c t i o n :   "   +   v 1 1   +   C R 
 
 	 s 6 4   =   s 6 4   +   " S w e e p   m o d e :   "   +   v 1 2   +   C R 
 
 	 P r i n t   s 6 4 
 
 R e t u r n 
 
 
 
 L a b e l   S w e e p _ V C o n t r o l 
 
 	 I f   s w e e p _ f r e q _ o n   =   0 
 
 	 	 s w e e p _ f r e q _ o n   =   1 
 
 	 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 	 C O M   W r i t e L i n e   " : w 6 5 = "   +   s w e e p _ f r e q _ o n   +   " , "   +   1   +   " . " 
 
 	 	 ' C O M   C l o s e 
 
 	 	 B u t t o n   S w e e p _ s e t   C o l o r   G r e e n Y e l l o w 
 
 	 	 B u t t o n   S w e e p _ V C o n t r o l   C o l o r   G r e e n Y e l l o w 
 
 	 	 P r i n t   " F r e q u e n c y   s w e e p   O N "   +   C R 
 
 	 E l s e 
 
 	 	 s w e e p _ f r e q _ o n   =   0 
 
 	 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 	 C O M   W r i t e L i n e   " : w 6 5 = "   +   s w e e p _ f r e q _ o n   +   " , "   +   1   +   " . " 
 
 	 	 ' C O M   C l o s e 
 
 	 	 B u t t o n   S w e e p _ s e t   C o l o r   T o m a t o 
 
 	 	 B u t t o n   S w e e p _ V C o n t r o l   C o l o r   T o m a t o 
 
 	 	 P r i n t   " F r e q u e n c y   s w e e p   O F F "   +   C R 
 
 	 	 
 
 	 	 ' s 6 5   =   " S t a r t   F r e q u e n c y   s w e e p ? "   +   C R 
 
 	 	 ' s 6 5   =   s 6 5   +   " 0 :   O F F "   +   C R 
 
 	 	 ' s 6 5   =   s 6 5   +   " 1 :   O N   " 
 
 	 	 ' v 6 5   =   I n p u t   s 6 5 
 
 	 	 ' s 6 5   =   " S t a r t   V o l t a g e   C o n t r o l ? "   +   C R 
 
 	 	 ' s 6 5   =   s 6 5   +   " 0 :   O F F "   +   C R 
 
 	 	 ' s 6 5   =   s 6 5   +   " 1 :   O N   " 
 
 	 	 ' v 1 0   =   I n p u t   s 6 5 
 
 	 	 ' C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 	 ' C O M   W r i t e L i n e   " : w 6 5 = "   +   v 6 5   +   " , "   +   v 1 0   +   " . " 
 
 	 	 ' C O M   C l o s e 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   S w e e p _ f r e q 
 
 	 s 6 6   =   " S w e e p   S t a r t   f r e q u e n c y   ( H z ) " 
 
 	 v 6 6   =   I n p u t   s 6 6 
 
 	 s 6 7   =   " S w e e p   E n d   f r e q u e n c y   ( H z ) " 
 
 	 v 6 7   =   I n p u t   s 6 7 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 6 6 = "   +   ( v 6 6 * 1 0 )   +   " . " 
 
 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 C O M   W r i t e L i n e   " : w 6 7 = "   +   ( v 6 7 * 1 0 )   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " S w e e p   s t a r t   f r e q u e n c y   s e t   t o :   "   +   v 6 6   +   " H z "   +   C R 
 
 	 P r i n t   " S w e e p   e n d   f r e q u e n c y   s e t   t o :   "   +   v 6 7   +   " H z "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   S w e e p _ V p p 
 
 	 s 6 8   =   " S w e e p   S t a r t   V o l t a g e   ( V ) " 
 
 	 v 6 8   =   I n p u t   s 6 8 
 
 	 s 6 9   =   " S w e e p   E n d   V o l t a g e   ( V ) " 
 
 	 v 6 9   =   I n p u t   s 6 9 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 6 8 = "   +   ( v 6 8 * 1 0 0 0 )   +   " . " 
 
 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 C O M   W r i t e L i n e   " : w 6 9 = "   +   ( v 6 9 * 1 0 0 0 )   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " S w e e p   s t a r t   v o l t a g e   s e t   t o :   "   +   v 6 8   +   " V "   +   C R 
 
 	 P r i n t   " S w e e p   e n d   v o l t a g e   s e t   t o :   "   +   v 6 9   +   " V "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   S w e e p _ D u t y 
 
 	 s 7 0   =   " S w e e p   S t a r t   D u t y   C y c l e   ( % ) "   +   C R 
 
 	 s 7 0   =   s 7 0   +   " ( 0   -   1 0 0 % ) " 
 
 	 v 7 0   =   I n p u t   s 7 0 
 
 	 s 7 1   =   " S w e e p   E n d   D u t y   C y c l e   ( % ) "   +   C R 
 
 	 s 7 1   =   s 7 1   +   " ( 0   -   1 0 0 % ) " 
 
 	 v 7 1   =   I n p u t   s 7 1 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 7 0 = "   +   ( v 7 0 * 1 0 0 )   +   " . " 
 
 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 C O M   W r i t e L i n e   " : w 7 1 = "   +   ( v 7 1 * 1 0 0 )   +   " . " 
 
 	 ' C O M   C l o s e 
 
 	 P r i n t   " S w e e p   s t a r t   D u t y   C y c l e   ( % ) :   "   +   v 7 0   +   " % "   +   C R 
 
 	 P r i n t   " S w e e p   e n d   D u t y   C y c l e   ( % ) :   "   +   v 7 1   +   " % "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   S e t _ S w e e p _ I n t e r f a c e 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 4 = 0 , 6 , 0 , 1 . " 
 
 	 ' C O M   C l o s e 
 
 R e t u r n 
 
 
 
 L a b e l   S e t _ M o d u l a t i o n _ i n t e r f a c e 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 4 = 0 , 1 , 7 , 7 . " 
 
 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 C O M   W r i t e L i n e   " : w 2 4 = 0 , 2 , 7 , 7 . " 
 
 	 ' C O M   C l o s e 
 
 R e t u r n 
 
 
 
 L a b e l   S e t _ W a v e f o r m _ I n t e r f a c e 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 4 = 0 , 1 , 0 , 0 . " 
 
 	 W a i t   S e c o n d s   p o r t _ w a i t i n g _ t i m e 
 
 	 C O M   W r i t e L i n e   " : w 2 4 = 0 , 2 , 0 , 0 . " 
 
 	 ' C O M   C l o s e 
 
 R e t u r n 
 
 
 
 L a b e l   S e t _ V C O _ I n t e r f a c e 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 4 = 0 , 7 , 0 , 1 . " 
 
 	 ' C O M   C l o s e 
 
 R e t u r n 
 
 
 
 L a b e l   S e t _ M e a s u r e m e n t _ I n t e r f a c e 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 4 = 0 , 4 , 0 , 1 . " 
 
 	 ' C O M   C l o s e 
 
 R e t u r n 
 
 
 
 L a b e l   L o a d _ m e m 
 
 	 s 1   =   " I n s e r t   t h e   m e m o r y   l o c a t i o n   f r o m   w h i c h   y o u   w a n t   t o   L O A D   p a r a m e t e r s "   +   C R 
 
 	 s 1   =   s 1   +   " ( 0   -   9 9 ) " 
 
 	 v 1 0   =   I n p u t   s 1 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 6 = "   +   v 1 0   +   " , 1 1 1 . " 
 
 R e t u r n 
 
 
 
 L a b e l   S a v e _ m e m 
 
 	 s 1   =   " I n s e r t   t h e   m e m o r y   l o c a t i o n   i n   w h i c h   y o u   w a n t   t o   S A V E   p a r a m e t e r s "   +   C R 
 
 	 s 1   =   s 1   +   " ( 0   -   9 9 ) " 
 
 	 v 1 0   =   I n p u t   s 1 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 6 = "   +   v 1 0   +   " , 2 2 2 . " 
 
 R e t u r n 
 
 
 
 L a b e l   C l e a r _ m e m 
 
 	 s 1   =   " I n s e r t   t h e   m e m o r y   l o c a t i o n   y o u   w a n t   t o   C L E A R "   +   C R 
 
 	 s 1   =   s 1   +   " ( 0   -   9 9 ) " 
 
 	 v 1 0   =   I n p u t   s 1 
 
 	 C O M   O p e n   s e r i a l _ p o r t _ n u m b e r   1 1 5 2 0 0 
 
 	 C O M   W r i t e L i n e   " : w 2 6 = "   +   v 1 0   +   " , 3 3 3 . " 
 
 R e t u r n 
 
 
 
 L a b e l   R e a d _ A W G 
 
 	 I f   F i l e E x i s t s ( " A p p s \ P S G 9 0 8 0 _ A R B . e x e " ) 
 
 	 	 v 1 0   =   I n p u t   " T y p e   t h e   A W   s l o t   n u m b e r   t o   r e a d   f r o m   d e v i c e   ( 1   -   9 9 ) " 
 
 	 	 C O M   C l o s e   ' C l o s e   C O M   P o r t   o t h e r w i s e   P S G 9 0 8 0 _ A R B . e x e   c a n n o t   a c c e s s   t o   i t 
 
 	 	 L o a d   " C : \ W i n d o w s \ S y s t e m 3 2 \ c m d . e x e " 
 
 	 	 s 1   =   G e t A p p l i c a t i o n P a t h 
 
 	 	 S e n d K e y s   c d 
 
 	 	 P r e s s K e y s   S p a c e 
 
 	 	 S e n d K e y s   s 1 
 
 	 	 S e n d K e y s   \ A p p s \ 
 
 	 	 P r e s s K e y s   E n t e r 
 
 	 	 S e n d K e y s   P S G 9 0 8 0 _ A R B . e x e 
 
 	 	 P r e s s K e y s   S p a c e 
 
 	 	 S e n d K e y s   C O M 
 
 	 	 S e n d K e y s   s e r i a l _ p o r t _ n u m b e r 
 
 	 	 P r e s s K e y s   S p a c e 
 
 	 	 S e n d K e y s   - r e a d 
 
 	 	 P r e s s K e y s   S p a c e 
 
 	 	 S e n d K e y s   v 1 0 
 
 	 	 P r e s s K e y s   S p a c e 
 
 	 	 S e n d K e y s   w a v e 
 
 	 	 v 1 1   =   v 1 0   +   1 0 0 
 
 	 	 S e n d K e y s   v 1 1 
 
 	 	 S e n d K e y s   . t x t { E N T E R } 
 
 	 	 W a i t   S e c o n d s   1 
 
 	 	 P r i n t   " W a v e f o r m   "   +   v 1 0   +   "   s a v e d   t o   \ A p p s \ w a v e "   +   v 1 1   +   " . t x t "   +   C R 
 
 	 E l s e 
 
 	 	 P r i n t   " F i l e   n o t   f o u n d :   A p p s \ P S G 9 0 8 0 _ A R B . e x e "   +   C R 
 
 	 	 s 2   =   " P l e a s e   d o w n l o a d   P S G 9 0 8 0 _ A R B . e x e   f r o m "   +   C R 
 
 	 	 s 2   =   s 2   +   " h t t p s : / / g i t h u b . c o m / q r p 7 3 / P S G 9 0 8 0 _ A R B / r e l e a s e s / d o w n l o a d / 1 . 0 / P S G 9 0 8 0 _ A R B - v 1 . 0 . z i p "   +   C R 
 
 	 	 s 2   =   s 2   +   " a n d   c o p y   i t   i n   t h e   A p p s   f o l d e r "   +   C R 
 
 	 	 s 2   =   s 2   +   " u n d e r   t h e   T h e r e m i n o   A p p l i c a t i o n   f o l d e r . " 
 
 	 	 s 1   =   M e s s a g e   s 2 
 
 	 	 B u t t o n   R e a d _ A W G   C o l o r   C o r a l 
 
 	 	 B u t t o n   R e a d _ A W G   T e x t   " P S G 9 0 8 0 _ A R B . e x e "   +   C R   +   " N o t   f o u n d " 
 
 	 	 W a i t   S e c o n d s   1 . 5 
 
 	 	 B u t t o n   R e a d _ A W G   C o l o r   L e m o n C h i f f o n 
 
 	 	 B u t t o n   R e a d _ A W G   T e x t   " R e a d   A r b i t r a r y "   +   C R   +   " W a v e f o r m " 
 
 	 E n d I f 
 
 	 
 
 R e t u r n 
 
 
 
 L a b e l   W r i t e _ A W G 
 
 	 I f   F i l e E x i s t s ( " A p p s \ P S G 9 0 8 0 _ A R B . e x e " ) 
 
 	 	 s 2   =   " T y p e   t h e   A W   s l o t   n u m b e r   i n   w h i c h   y o u   w a n t   t o "   +   C R 
 
 	 	 s 2   =   s 2   +   " u p l o a d   w a v e f o r m   t o   t h e   d e v i c e   ( 1   -   9 9 ) " 
 
 	 	 v 1 0   =   I n p u t   s 2 
 
 	 	 s 2   =   S e l e c t F i l e ( " A p p s \ " )   ' L e t   u s e r   s e l e c t   a   f i l e   c o n t a i n i n g   t h e   w a v e f o r m   t o   u p l o a d   o n   t h e   s i g n a l   g e n e r a t o r 
 
 	 	 C O M   C l o s e   ' C l o s e   C O M   P o r t   o t h e r w i s e   P S G 9 0 8 0 _ A R B . e x e   c a n n o t   a c c e s s   t o   i t 
 
 	 	 L o a d   " C : \ W i n d o w s \ S y s t e m 3 2 \ c m d . e x e " 
 
 	 	 ' G o   t o   t h e   A p p s   f o l d e r 
 
 	 	 s 1   =   G e t A p p l i c a t i o n P a t h 
 
 	 	 S e n d K e y s   c d 
 
 	 	 P r e s s K e y s   S p a c e 
 
 	 	 S e n d K e y s   s 1 
 
 	 	 S e n d K e y s   \ A p p s \ 
 
 	 	 P r e s s K e y s   E n t e r 
 
 	 	 ' S e n d   c o m m a n d   t o   u p l o a d   w a v e f o r m   t o   t h e   s i g n a l   g e n e r a t o r 
 
 	 	 S e n d K e y s   P S G 9 0 8 0 _ A R B . e x e 
 
 	 	 P r e s s K e y s   S p a c e 
 
 	 	 S e n d K e y s   C O M 
 
 	 	 S e n d K e y s   s e r i a l _ p o r t _ n u m b e r 
 
 	 	 P r e s s K e y s   S p a c e 
 
 	 	 S e n d K e y s   - w r i t e 
 
 	 	 P r e s s K e y s   S p a c e 
 
 	 	 S e n d K e y s   v 1 0 
 
 	 	 P r e s s K e y s   S p a c e 
 
 	 	 S e n d K e y s   s 2 
 
 	 	 S e n d K e y s   { E N T E R } 
 
 	 	 B u t t o n   W r i t e _ A W G   C o l o r   C h a r t r e u s e 
 
 	 	 B u t t o n   W r i t e _ A W G   T e x t   " U p l o a d "   +   C R   +   " S u c c e s s " 
 
 	 	 W a i t   S e c o n d s   2 
 
 	 	 P r i n t   " I f   y o u   h e a r d   a   b e e p ,   W a v e f o r m   w a s   s u c c e s f u l l y   u p l o a d e d   o n   t h e   d e v i c e "   +   C R 
 
 	 	 B u t t o n   W r i t e _ A W G   C o l o r   L e m o n C h i f f o n 
 
 	 	 B u t t o n   W r i t e _ A W G   T e x t   " W r i t e   A r b i t r a r y "   +   C R   +   " W a v e f o r m " 
 
 	 	 
 
 	 ' W r i t i n g   b a t   f i l e   ( n o t   w o r k i n g ) 
 
 	 	 ' s 1   =   " @ e c h o   o f f "   +   C R 
 
 	 	 ' s 1   =   s 1   +   " t i t l e   L O A D   A r b i t r a t y   w a v e f o r m   t o   P S G 9 0 8 0 "   +   C R 
 
 	 	 ' s 1   =   s 1   +   " e c h o   W r i t i n g   A r b i t r a r y   w a v e f o r m   t o   P S G 9 0 8 0 . "   +   C R 
 
 	 	 ' s 1   =   s 1   +   " p a u s e "   +   C R 
 
 	 	 ' s 1   =   s 1   +   " P S G 9 0 8 0 _ A R B . e x e   C O M "   +   s e r i a l _ p o r t _ n u m b e r   +   "   - w r i t e   "   +   v 1 0   +   "   "   +   s 2   +   C R 
 
 	 	 ' s 1   =   s 1   +   " p a u s e " 
 
 	 	 ' S a v e   D e l e t e F i l e   " . . \ A p p s \ L o a d _ A W G . b a t " 
 
 	 	 ' S a v e   S t r i n g T o F i l e   s 1   " A p p s \ L o a d _ A W G . b a t " 
 
 	 	 ' L o a d   " A p p s \ L o a d _ A W G . b a t " 
 
 	 E l s e 
 
 	 	 P r i n t   " F i l e   n o t   f o u n d :   A p p s \ P S G 9 0 8 0 _ A R B . e x e "   +   C R 
 
 	 	 s 2   =   " P l e a s e   d o w n l o a d   P S G 9 0 8 0 _ A R B . e x e   f r o m "   +   C R 
 
 	 	 s 2   =   s 2   +   " h t t p s : / / g i t h u b . c o m / q r p 7 3 / P S G 9 0 8 0 _ A R B / r e l e a s e s / d o w n l o a d / 1 . 0 / P S G 9 0 8 0 _ A R B - v 1 . 0 . z i p "   +   C R 
 
 	 	 s 2   =   s 2   +   " a n d   c o p y   i t   i n   t h e   A p p s   f o l d e r "   +   C R 
 
 	 	 s 2   =   s 2   +   " u n d e r   t h e   T h e r e m i n o   A u t o m a t i o n   f o l d e r . " 
 
 	 	 s 1   =   M e s s a g e   s 2 
 
 	 	 B u t t o n   W r i t e _ A W G   C o l o r   C o r a l 
 
 	 	 B u t t o n   W r i t e _ A W G   T e x t   " P S G 9 0 8 0 _ A R B . e x e "   +   C R   +   " N o t   f o u n d " 
 
 	 	 W a i t   S e c o n d s   1 . 5 
 
 	 	 B u t t o n   W r i t e _ A W G   C o l o r   L e m o n C h i f f o n 
 
 	 	 B u t t o n   W r i t e _ A W G   T e x t   " W r i t e   A r b i t r a r y "   +   C R   +   " W a v e f o r m " 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   C r e a t e _ E x a m p l e _ A W 
 
 	 S a v e   D e l e t e F i l e   " . . \ A p p s \ w a v e _ e x a m p l e . t x t " 
 
 	 s 1   =   " " 
 
 	 F o r   v 3   =   1   T o   1 0 0 0 
 
 	 	 s 1   =   s 1   +   1 6 3 8 3   +   C R L F 
 
 	 N e x t 
 
 	 F o r   v 3   =   1 0 0 1   T o   2 0 0 0 
 
 	 	 s 1   =   s 1   +   8 1 9 1   +   C R L F 
 
 	 N e x t 
 
 	 F o r   v 3   =   2 0 0 1   T o   8 1 9 2 
 
 	 	 s 1   =   s 1   +   0   +   C R L F 
 
 	 N e x t 
 
 	 S a v e   S t r i n g T o F i l e   s 1   " A p p s \ w a v e _ e x a m p l e . t x t " 
 
 	 s 1   =   M e s s a g e   " A   f i l e   n a m e d   w a v e _ e x a m p l e . t x t   w a s   c r e a t e d   i n   t h e   A p p s   f o l d e r . " 
 
 	 P r i n t   " A   f i l e   n a m e d   w a v e _ e x a m p l e . t x t   w a s   c r e a t e d   i n   t h e   A p p s   f o l d e r . "   +   C R 
 
 R e t u r n 
 
 
 
 L a b e l   E v e n t S t o p 
 
 	 W i n d o w   M a x i m i z e d 
 
 	 C O M   C l o s e 
 
 E n d 
 
 
 
 
 
 ' E X E C   v 1   =   R n d   :   V 2   =   V 1   +   9 9   :   V 3   =   V 2   +   1 0 0 0 
 
 